﻿Public Class usrLocacao

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btPesquisarClientes.Click
        Dim frmClientes As New frmConsult
        frmClientes.Text = "Clientes"
        frmClientes.ShowDialog()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btPesquisarCarro.Click
        Dim frmVeiculos As New frmConsult
        frmVeiculos.Text = "Veiculos"
        frmVeiculos.ShowDialog()
    End Sub

    Private Sub btFiltrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btFiltrar.Click
        Dim frmVeiculosLocados As New frmConsult
        frmVeiculosLocados.Text = "Veiculos Locados"
        frmVeiculosLocados.ShowDialog()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Dispose()
    End Sub


End Class
